(defpackage :complex-polar
  (:use :cl))

(in-package :complex-polar)

;(define-ortho-type polar-complex-number complex-number)

(defparameter *c1* '(5.0 . 3.14))
(defparameter *c2* '(5.0 . 0.0))

(defun make-complex (x y)
  (cons x y))

(defun magnitude (x)
  (car x))

(defun angle (x)
  (cdr x))

(defun mult (x y)
  (make-complex (* (magnitude x)
		   (magnitude y))
		(+ (angle x)
		   (angle y))))